object DMCaixa: TDMCaixa
  OldCreateOrder = False
  Height = 472
  Width = 898
  object dsPlanoContas: TDataSource
    DataSet = cdsPlanoContas
    Left = 64
    Top = 184
  end
  object cdsPlanoContas: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspPlanoContas'
    Left = 64
    Top = 128
    object cdsPlanoContasCODIGO: TStringField
      FieldName = 'CODIGO'
    end
    object cdsPlanoContasID_PLANO_CONTAS: TLargeintField
      FieldName = 'ID_PLANO_CONTAS'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Visible = False
    end
    object cdsPlanoContasDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
    object cdsPlanoContasNIVEL: TIntegerField
      FieldName = 'NIVEL'
      Visible = False
    end
    object cdsPlanoContasLANCAMENTO: TStringField
      FieldName = 'LANCAMENTO'
      Size = 1
    end
    object cdsPlanoContasTIPO: TStringField
      FieldName = 'TIPO'
      Size = 1
    end
  end
  object dspPlanoContas: TDataSetProvider
    DataSet = sqlPlanoContas
    Left = 64
    Top = 80
  end
  object sqlPlanoContas: TSQLDataSet
    CommandText = 'select * from PLANO_CONTAS order by codigo'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DMDados.SQLConnection1
    Left = 64
    Top = 24
  end
  object cdsConsultaPlanoContas: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'codigo'
        ParamType = ptInput
      end>
    ProviderName = 'dspConsultaPlanoContas'
    Left = 176
    Top = 128
    object LargeintField1: TLargeintField
      FieldName = 'ID_PLANO_CONTAS'
      Required = True
    end
    object StringField1: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
    object StringField2: TStringField
      FieldName = 'CODIGO'
    end
    object IntegerField1: TIntegerField
      FieldName = 'NIVEL'
    end
    object StringField3: TStringField
      FieldName = 'LANCAMENTO'
      Size = 1
    end
    object cdsConsultaPlanoContasTIPO: TStringField
      FieldName = 'TIPO'
      Size = 1
    end
  end
  object dspConsultaPlanoContas: TDataSetProvider
    DataSet = sqlConsultaPlanoContas
    Left = 176
    Top = 80
  end
  object sqlConsultaPlanoContas: TSQLDataSet
    CommandText = 'select * from PLANO_CONTAS where codigo like :codigo'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'codigo'
        ParamType = ptInput
      end>
    SQLConnection = DMDados.SQLConnection1
    Left = 176
    Top = 24
  end
  object SQLCadastroCaixa: TSQLDataSet
    CommandText = 'select * from caixa'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = DMDados.SQLConnection1
    Left = 64
    Top = 248
  end
  object dsCadastroCaixa: TDataSource
    DataSet = cdsCadastroCaixa
    Left = 64
    Top = 416
  end
  object dspCadastroCaixa: TDataSetProvider
    DataSet = SQLCadastroCaixa
    Left = 64
    Top = 304
  end
  object cdsCadastroCaixa: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastroCaixa'
    Left = 64
    Top = 360
    object cdsCadastroCaixaID_CAIXA: TLargeintField
      FieldName = 'ID_CAIXA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cdsCadastroCaixaNOME: TStringField
      FieldName = 'NOME'
      Size = 50
    end
  end
  object cdsConsultaCaixa: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'nome'
        ParamType = ptInput
      end>
    ProviderName = 'dspConsultaCaixa'
    Left = 184
    Top = 360
    object LargeintField2: TLargeintField
      FieldName = 'ID_CAIXA'
      Required = True
    end
    object StringField4: TStringField
      FieldName = 'NOME'
      Size = 50
    end
  end
  object dspConsultaCaixa: TDataSetProvider
    DataSet = SQLConsultaCaixa
    Left = 184
    Top = 304
  end
  object SQLConsultaCaixa: TSQLDataSet
    CommandText = 'select * from caixa where nome like :nome'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'nome'
        ParamType = ptInput
      end>
    SQLConnection = DMDados.SQLConnection1
    Left = 184
    Top = 248
  end
end
